home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / scm / xscm.lha / xscm / x11.scm < prev    next >
Encoding:
Text File  |  1992-08-29  |  3.6 KB  |  109 lines
  1. ; $Header: /home/campbell/Languages/Scheme/scm/x-scm/RCS/x11.scm,v 1.1 1992/07/03 03:06:52 campbell Beta $
  2. ;
  3. ; X11R4 definitions.  These are taken from X11.h and Xlib.h.
  4. ; This file is far from complete.
  5. ;
  6. ;  Author: Larry Campbell (campbell@redsox.bsw.com)
  7. ; 
  8. ;  Copyright 1992 by The Boston Software Works, Inc.
  9. ;  Permission to use for any purpose whatsoever granted, as long
  10. ;  as this copyright notice remains intact.  Please send bug fixes
  11. ;  or enhancements to the above email address.
  12. ; 
  13.  
  14. ; Event mask bits 
  15.  
  16. (define x:no-event-mask            0)
  17. (define x:key-press-mask        (expt 2 0)  )
  18. (define x:key-release-mask        (expt 2 1)  )
  19. (define x:button-press-mask        (expt 2 2)  )
  20. (define x:button-release-mask        (expt 2 3)  )
  21. (define x:enter-window-mask        (expt 2 4)  )
  22. (define x:leave-window-mask        (expt 2 5)  )
  23. (define x:pointer-motion-mask        (expt 2 6)  )
  24. (define x:pointer-motion-hint-mask    (expt 2 7)  )
  25. (define x:button1-motion-mask        (expt 2 8)  )
  26. (define x:button2-motion-mask        (expt 2 9)  )
  27. (define x:button3-motion-mask        (expt 2 10) )
  28. (define x:button4-motion-mask        (expt 2 11) )
  29. (define x:button5-motion-mask        (expt 2 12) )
  30. (define x:button-motion-mask        (expt 2 13) )
  31. (define x:keymap-state-mask        (expt 2 14) )
  32. (define x:exposure-mask            (expt 2 15) )
  33. (define x:visibility-change-mask    (expt 2 16) )
  34. (define x:structure-notify-mask        (expt 2 17) )
  35. (define x:resize-redirect-mask        (expt 2 18) )
  36. (define x:substructure-notify-mask    (expt 2 19) )
  37. (define x:substructure-redirect-mask    (expt 2 20) )
  38. (define x:focus-change-mask        (expt 2 21) )
  39. (define x:property-change-mask        (expt 2 22) )
  40. (define x:colormap-change-mask        (expt 2 23) )
  41. (define x:owner-grab-button-mask    (expt 2 24) )
  42.  
  43. ; Event types
  44.  
  45. (define x:key-press        2)
  46. (define x:key-release        3)
  47. (define x:button-press        4)
  48. (define x:button-release    5)
  49. (define x:motion-notify        6)
  50. (define x:enter-notify        7)
  51. (define x:leave-notify        8)
  52. (define x:focus-in        9)
  53. (define x:focus-out        10)
  54. (define x:keymap-notify        11)
  55. (define x:expose        12)
  56. (define x:graphics-expose    13)
  57. (define x:no-expose        14)
  58. (define x:visibility-notify    15)
  59. (define x:create-notify        16)
  60. (define x:destroy-notify    17)
  61. (define x:unmap-notify        18)
  62. (define x:map-notify        19)
  63. (define x:map-request        20)
  64. (define x:reparent-notify    21)
  65. (define x:configure-notify    22)
  66. (define x:configure-request    23)
  67. (define x:gravity-notify    24)
  68. (define x:resize-request    25)
  69. (define x:circulate-notify    26)
  70. (define x:circulate-request    27)
  71. (define x:property-notify    28)
  72. (define x:selection-clear    29)
  73. (define x:selection-request    30)
  74. (define x:selection-notify    31)
  75. (define x:colormap-notify    32)
  76. (define x:client-message    33)
  77. (define x:mapping-notify    34)
  78. (define x:last-event        35)    ; must be bigger than any event #
  79.  
  80.  
  81. ; Bit masks for XCreateGC and friends...
  82.  
  83. (define x:gc-function        (expt 2 0))
  84. (define x:gc-plane-mask        (expt 2 1))
  85. (define x:gc-foreground        (expt 2 2))
  86. (define x:gc-background        (expt 2 3))
  87. (define x:gc-line-width        (expt 2 4))
  88. (define x:gc-line-style        (expt 2 5))
  89. (define x:gc-cap-style        (expt 2 6))
  90. (define x:gc-join-style        (expt 2 7))
  91. (define x:gc-fill-style        (expt 2 8))
  92. (define x:gc-fill-rule        (expt 2 9)) 
  93. (define x:gc-tile        (expt 2 10))
  94. (define x:gc-stipple        (expt 2 11))
  95. (define x:gc-tile-stip-x-origin    (expt 2 12))
  96. (define x:gc-tile-stip-y-origin    (expt 2 13))
  97. (define x:gc-font         (expt 2 14))
  98. (define x:gc-subwindow-mode    (expt 2 15))
  99. (define x:gc-graphics-exposures    (expt 2 16))
  100. (define x:gc-clip-x-origin    (expt 2 17))
  101. (define x:gc-clip-y-origin    (expt 2 18))
  102. (define x:gc-clip-mask        (expt 2 19))
  103. (define x:gc-dash-offset    (expt 2 20))
  104. (define x:gc-dash-list        (expt 2 21))
  105. (define x:gc-arc-modr,    (expt 2 22))
  106.  
  107. (define x:coord-mode-origin 0)        ; relative to the origin
  108. (define x:coord-mode-previous 1)    ; relative to previous point
  109.